home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / src / stab.c < prev    next >
C/C++ Source or Header  |  1992-11-02  |  3KB  |  118 lines
  1. /* Read and manage symbol tables from object modules
  2.  */
  3.  
  4. #include "scheme.h"
  5.  
  6. #if defined(CAN_LOAD_OBJ) || defined (INIT_OBJECTS)
  7.  
  8. #ifdef MACH_O
  9. #  include "stab.macho.c"
  10. #else
  11. #ifdef ELF
  12. #  include "stab.elf.c"
  13. #else
  14. #if defined(COFF) || defined(XCOFF)
  15. #  include "stab.coff.c"
  16. #else
  17. #ifdef ECOFF
  18. #  include "stab.ecoff.c"
  19. #else
  20. #if defined(hp9000s300) || defined(__hp9000s300__)
  21. #  include "stab.hp9k300.c"
  22. #else
  23. #if defined(hp9000s800) || defined(__hp9000s800__)
  24. #  include "stab.hp9k800.c"
  25. #else
  26. #  include "stab.bsd.c"
  27. #endif
  28. #endif
  29. #endif
  30. #endif
  31. #endif
  32. #endif
  33.  
  34. Free_Symbols (tab) SYMTAB *tab; {
  35.     register SYM *sp;
  36.  
  37.     for (sp = tab->first; sp; sp = sp->next) {
  38. #if defined(COFF) || defined(ECOFF)
  39.     free (sp->name);
  40. #endif
  41.     free ((char *)sp);
  42.     }
  43.     if (tab->strings)
  44.     free (tab->strings);
  45.     free ((char *)tab);
  46. }
  47.  
  48. static char *Ignore_Prefixes[] =  { "init__", "finit__",  0 };
  49. static char *Init_Prefixes[] =  { "init_",  "__sti__", "_STI",
  50.                   "_GLOBAL_$I$", 0 };
  51. static char *Finit_Prefixes[] = { "finit_", "__std__", "_STD",
  52.                   "_GLOBAL_$D$", 0 };
  53.  
  54. static FUNCT *Finalizers;
  55.  
  56. static void Call (l) unsigned long l; {
  57. #ifdef XCOFF
  58.     unsigned long vec[3];
  59.     extern main();
  60.  
  61.     bcopy ((char *)main, (char *)vec, sizeof vec);
  62.     vec[0] = l + (vec[0] & 0xF0000000);
  63.     ((void (*)())vec)();
  64. #else
  65.     ((void (*)())l)();
  66. #endif
  67. }
  68.  
  69. Call_Initializers (tab, addr) SYMTAB *tab; char *addr; {
  70.     register SYM *sp;
  71.     register char *p, **pp;
  72.     int got_one = 0;
  73.     FUNCT *fp;
  74.  
  75.     for (sp = tab->first; sp; sp = sp->next) {
  76.     if ((char *)sp->value < addr)
  77.         continue;
  78.     p = sp->name;
  79. #ifdef SYMS_BEGIN_WITH
  80.     if (*p == SYMS_BEGIN_WITH)
  81.         p++;
  82.     else
  83.         continue;
  84. #endif
  85.     for (pp = Ignore_Prefixes; *pp; pp++)
  86.         if (strncmp (p, *pp, strlen(*pp)) == 0)
  87.         goto next;
  88.     for (pp = Init_Prefixes; *pp; pp++) {
  89.         if (strncmp (p, *pp, strlen (*pp)) == 0) {
  90.         got_one = 1;
  91.         Call (sp->value);
  92.         }
  93.     }
  94.     for (pp = Finit_Prefixes; *pp; pp++) {
  95.         if (strncmp (p, *pp, strlen (*pp)) == 0) {
  96.         fp = (FUNCT *)Safe_Malloc (sizeof (*fp));
  97.         fp->func = (void (*)())sp->value;
  98.         fp->next = Finalizers;
  99.         Finalizers = fp;
  100.         }
  101.     }
  102. next: ;
  103.     }
  104.     return got_one;
  105. }
  106.  
  107. /* Call the finialization functions in reverse order.  Make sure that
  108.  * calling exit() from a finalizer doesn't cause endless recursion.
  109.  */
  110. Call_Finalizers () {
  111.     while (Finalizers) {
  112.     FUNCT *fp = Finalizers;
  113.     Finalizers = fp->next;
  114.     Call ((unsigned long)fp->func);
  115.     }
  116. }
  117. #endif /* CAN_LOAD_OBJ || INIT_OBJECTS */
  118.